home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1984 August / 1984-08.d64 / error trap_vic (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  651b  |  19 lines
  1. 200 rem error trap routine
  2. 210 print"[147]error detected"
  3. 220 rem get line and message
  4. 230 gosub4000
  5. 240 printer$:print"error at line"ln
  6. 250 end
  7. 3000 data 169, 58, 141, 0, 3, 169, 196, 141, 1, 3, 165, 58, 141, 123
  8. 3010 data 3, 201, 255, 240, 39, 165, 57, 141, 122, 3, 142, 121, 3, 160
  9. 3020 data 0, 185, 124, 3, 153, 0, 2, 240, 3, 200, 208, 245, 162, 255
  10. 3030 data 160, 1, 76, 134, 196, 169, 60, 141, 0, 3, 169, 3, 141, 1
  11. 3040 data 3, 96, 108, 0, 3
  12. 3050 restore:forad=828to888:readva:pokead,va:nextad
  13. 3060 t$="goto"+str$(et)+chr$(0)
  14. 3070 forad=1tolen(t$):poke891+ad,asc(mid$(t$,ad,1)):nextad
  15. 3080 sys875:return
  16. 4000 en=peek(889):ea=peek(49958+2*en)+256*peek(49959+2*en):er$=""
  17. 4010 er$=er$+chr$(peek(ea)and127):ifpeek(ea)<128thenea=ea+1:goto4010
  18. 4020 ln=peek(890)+256*peek(891):return
  19.